ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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aa aa 
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SEQ60600000008008a 
canna aa 
ecaca ca 
ca ca ca 
aa ca ca 
ca a4. 4-4 
ca ecacac 
ca ca 
ca aa 
@Qaeancaeacaeacaecaacace 
@aeecaeacaeacacacaeacace 
oO oooo 
Ssssssssss 
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set PASSWORD_GENERATE 
x2.T 


/* 
; IDENT = v04-000 


' 
leReReR AAAS AEAEAAAHHHAAAAAAAARAAAAAAAATEHATAETAHEAAAAATETAeeAeeK AeA eeeeReAe 


wn 


5 i e 
5 ie COPYRIGHT (ot 1978 1980 1982, 1984 8 * 
ie DIGITAL EQU T CORPORATION, MAYNARD. MASSACHUSETTS. « 

8 te ALL RIGHTS. RESERVED” : 
10 ie THIS SOFTWARE 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
1 ‘ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE * 
3 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sort ARE OR ANY OTHER * 
1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
14 ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
15 is TRANSFERRED. e 
13 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
18 ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
19 is CORPORATION. : 
i it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
te 

& 


ieeeeeucceeceeaececenececaneeetennenaneneneerecreereceneetentnnnsnensentens 


ONAUSE 


: FACILITY: 
SET PASSWORD 
ABSTRACT: 
This is main routine for the /GENERATE qualifier on SET PASSWORD. 
ENVIRONMENT: | 
Vax native 


wn— 


“es | 
AUTHOR: Brian Bailey , CREATION DATE: Summer 83 
MODIFIED BY: 


v03-004 puzeoes Stephen H. Zalewski, 27-Mar-1984 
Change maximum password Length from 80 to 3 because that 
is what the calling routine assumes, and this routine blank 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
fills the password buffer. 
i 

i 

i 

i 

i 


v03-003 $HZ0003 Stephen H. Zalewksi, 21-Mar-1984 
Add more words to the bad word List. 
v03-002 $H20002 Stephen H. Zalewski 10-Feb-1984 


Call SYSSEXIT when user types CNTRL/Z to new password prompt 


e 


st PASSWORD_GENERATE 
x2.T 


=“SEP-1984 01: VAX-11 PL/I 
IEREPTRBE 01:48:13 SREVASHASTER:C 
in order to prevent the ‘’PLI Finish Condition’ from being 

signaled. 


v03-001 $HZ0001 Stephen H. Zalewski 0i- 
Extensive cove tne to implement /GENERAT 
into SET PASSWORD. 


feb-1 


\- 984 
E and incorporate 


2 
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iu 
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24 ' ‘ ROUTINE set_password_generate 

9 i FUNCTIONAL DESCRIPTION: 

71 ' i This is the main routine for SET PASSWORD/GENERATE. It call the 

72 : : routines to generate the passwords and returns when a password 

if, ' : has been chosen by the user. 
75 3 i INPUT PARAMETERS: _ | 
76 | : mini = The minimum pesevere length to generate. (The passwords generated 

uf ' } are of Length mini to mini+2.) 

' M | 

79 ; ! OUTPUT PARAMETERS: _ 

rs ' new_password - An ASCIC string of the password chosen by the user. 

82 } ' ROUTINE VALUE: | 
83 } : NONE 
84 ; : 
85 } ' SIDE EFFECTS: 
86 ; ' NONE 
87 ; : 

4 : «/ 

«' ’ set_password_generate: proc (new_password,mini); | 
92 1 dcl new_password char(32) var; /* password to be entered by user */ | 
2? : dcl min? fixed bin; /* minimum password length */ 
95 1 dcl generate_passwords ang | ((*) char(20) var, /* generate the passwords */ 
38 : (*) char(40) var, fixed bin, fixed bin, fixed bin); 
98 1 dcl sys$exit external entry (fixed bin(31) value);/* called by enfile to exit */ 
m+ ; dcl (ss$_normal) globalref fixed bin value; 
101 1 dcl pessword( 99) char(20) var; /* passwords to be generated */ | 
ioe 1 dcl hyph_word(100) char(40) var; /* perenate form of passwords to help */ | 
WO7 : ; /* the user with their pronunciation  */ 
105 1 dcl more bit(1) aligned; /* set when more passwords are to be generated */ 
106 1 dcl on_list bit(1) aligned; /* set when new_password matches one of */ | 
+4 : : /* the passwords in passwords(1:n_words) */ 
109 1 dcl n_words fixed bin init(5); /* number of passwords to generate */ 
139 : dcl maxi fixed bin; /* maximum password length */ 
6 : dcl collate builtin; 
ate ' dcl translation character(128); /* Used to translate upper to lower case s/ 
116 1 dcl ol toning blanks char (16) var; /* align the words for printing */ 
117 1 dcl (i, j, b, v) fixed bin; 
We | 
131 ' on endfile(sysin) call sysSexit(ss$_normal); 
tae t /* set up translation buffer to change upper case letters to lower case. «/ 


dD 10 
SET_PASSWORD_GENERATE 16-SEP-19 21 VAX<-11 PL/I _X2.12273 Pag 
5 3 yeti 93:8 :0 SKSVMSMASTER: CCLIUTL.SRCIJPASSWORDS.PLI; 9 (2), 
: /* this is used to change the password entered by the user. */ 
translation = collate; 
do i=66 to 91; ait er with lower */ 
substr (translation, oi,1) = substricoltete tet 
: /* generate the words */ 
maxi = mini + 2; /* set maximum word Length */ 


more = ‘'1'b 
on_list = 25. b; 
do while (more); 
call generate passwords (password, hyph_word, mini, maxi, n_words); 
do wh scale ist); 
put s 
. ett Choose a password from this List, or press RETURN to get a new List’) (a); 
put s 
a Uistinew, eee: options(prompt('New password: '), no_echo); 
put 
if new _password = 
then do; 
put skip; 
a generate_passwords(password, hyph_word, mini, maxi, n_words); 


else 
js a. i the new -Password matches any of the ppssyer gs on the List */ 
new. assword = translate(new_password,translation); 


do whi le(*on. list & i <= n_words); 
if new_password = password(i) 
PP list = ‘1'b; 


es {<4 
end; 
if “*on_ list 
then do; 
ae 954 edit('That word is not on this List: ') (a); 
put : 
do i = 1 to n_words; 
aligning. Blanks = copy(' *,maxi-length(password(i))); 
out skip” edit (password( i) } taligning_blanks,hyph_ word(i)) (a,x(4),a); 
end; 
end; 
else 
more = '0Q'b; 
end; 
end; 
end; 


IW BF BUA AOUUIUS BUMMER BB EWE BB WWIII pp oe 


end set_password_generate; 
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/* ROUTINE generate_passwords 
FUNCTIONAL DESCRIPTION: 


' 

' 
i 
! Generate a number of pronounceable words according to the rules given in the 

! digram table and in the algorithm in random_word_: First generate an evenl 

! distributed random letter string. Then test it a the random_word_ routine. 
! If it is legal, keep it. if it is not, generate another and test it.” Repeat 
: this process until the desired number of pronounceable words is obtained. 

! This algorithm requires an initial seed before it generates any numbers. In 
| order to make this initial seed as secure from detection as teehie y and also 
! to make this program ee to all types of VAXen, a onquerd counter 
: is incremented in a tight loop, and the lowest two bits are read 52 times at 
} 10 millisecond intervals and concatenated together to form the 64-bit initial 


seed. 

INPUT PARAMETERS: 
n_words - number of words to generate 
min_length - minimum Length of words to be generated 
max_length - maximum Length of words to be generated 


OUTPUT PARAMETERS: 
assword legal words in both normal and hyphenated form 
yph_password (Output words are printed 1 per ine as well 
being passed back to the calling procedure) 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


/ 
generate_passwords: proc (password, hyph_password, min_length, max_length, n_words); 


SSLEAFENLSSSLESLLS LSS SVS SP ASS SATSANG 


IFIP IPI IIIA rt et i kk tk td td dt 


10 1 
1 : Zreplace n_units by 34; 
ig 1 dcl password(*) char(20) var; /* PARAMETER: List of words after they have been generated */ 
14 1 dcl yph password(*) char (405 var; /* PARAMETER: nyphenstes form of passwords in above list */ 
15 1 dct min_Tength fixed bin; /* PARAMETER: min Length of word to be generated */ 

19 1 dcl max_length fixed bin; /* PARAMETER: max Length of word to be generated */ 

1 1 dcl n_words fixed bin; /* PARAMETER: number of words to be generated */ 

8 ' dcl word_count fixed bin; /* number of words generated so far */ 

0 1 
$f 1 dcl random chers. entry (char(*) var, fixed bin); /* get a string of random letters */ 

§ 1 dcl word char(20) var; /* letter string to be tested */ 

1 dcl wore Length fixed bin; /* length of word to be tested */ 

4 1 dcl s bit(31) aligned; /* temporary binary form of word_length */ 

5 1 dcl n fixed bin; /* temporary integer form of word Length «/ 
29 : dcl aligning_blanks char(16) var; /* blanks to align word for printing */ 

8 1 


foes ] 


Sole PASSWORD _GENERATE 


VFWn—Ow”o 


NOUS WN SO OONOUS Ww "O0OM 


PAD AAA AAI BE EE 


OOo 


Wwr— 


MIMMINON PRP ToTonofononononny» 
AO 


em ee ee ee ee me a ed a ad 2 dd td = = = 


dcl pronounceabie_ entr <chae eye (*) bit) 
ptr, ptr, ptr, fixed bin) returns (b 


word is _pronounceable it) aligned; 


counter fixed bin; 


read_flag bit(1) gic ext; 
delta. time bit( ‘ey? a {one 
ten_msec char(13) initt'd ‘to: :00:00.01"); 


singe ood A entry ( 


bit(64) aligned) 

returns (fixed binary(31)); 
dcl — anity, ‘ 

fixe it ) value, 

bieces) ° vhs eae 

entry valu 

fixed bin(s1) value) 
options (variable) poturastttect bin(31)); 
dcl sys$cantim entry(any,any 
options(variable) FF ary ctined bin(31)); 


dcl steSvalue fixed binary(31) 
dcl 1 sts$fields based taddr(sts$value)), 
2 sts$success eae 
§ sts$pad bit(31 
sts$align thart6); 


/* possible values of sts$value */ 
dcl (ss$_normal, 
i accvio. 
ss$_ os egy ) globalref fixed bin value; 
dcl collate builtin; 
dcl translation character(128); 


dcl number_bad_words fixes bin init(93); 
dcl bad word. string(93) char(10) var 


‘tiju’, 
*dvou', 9 


t° ‘ovdl*, *btti® "i fmm’ ‘ 
'ujut', ojhhts', gue’, 


udi' 


bit 
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ali 

1) 


Ligned, /* test the pronounceability of word */ 


/* status of word after being tested */ 


/* random number generator */ 

/* random number generator seed */ 

/* initial random number seed bits */ 

/* location in seed string of “bit field which */ 
/* will be filled by next seed_bits string «/ 


/* longword counter whose lowest two */ 

/* bits will be stored in seed_bits */ 

/* set "een counter value is to be read */ 
/* time value for sys$setimr */ 

/* 10 millisecond delta_time value */ 


/* convert ae string to binary time value = 


/* - ASCII string: ten_msec 

/* - system time value: delta. time = */ 

/* timer request with AST ‘eset ° «/ 
/* event flag number: T USED «/ | 


/* - time value: delta_time «/ 
- AST procedure: set_read_flag */ 
- AST parameter: NOT USED™ «/ 


/* cancel the current timer request */ 


/* system service return status value */ 
/* sts$value broken down into bits */ 
/* set en system service completed successfully */ | 
/* paddi ng to make 1 longword * | 
/* tor byte alignment */ 


/* used to encrypt generated passwords */ 


1 
st PASSWORD_GENERATE 1B§ 
x2.T SEP 
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Ww 
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‘gboefo' ia *gpsquma' aout’ aur 
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/* This is the structure needed */ 
dcl d_ptr ptr static init(null( Location of digram table */ 
ite /* location of unit letters */ 


dcl l“ptr ptr static init (nu 
/* location of unit rules */ 


to obtain the sey table. 
)i : 
dcl riptr ptr static init(null());: 


) 
) 
) 


/* this array contains amtenk ot try possible pairs of units */ 


( 

egin bit(1), on if this pair must be y 5 ULable */ 

no -begin Rea, }s on if this pair must no «/ 
end bit(1), /* on if sais pair must end - lable «/ 
not_end bit(1), /* on if this pair must not end */ 

break bit(1) /* on if this pair is a break pair */ 
prefix bit(1s, /* on if vowel must precede this pair in same syllable */ 
suffix bit(1), * on if vowel ayes follow this pair in same syllable */ 
illegal pair bit(1), /* on if this pair ate not appear */ 

align char(0); * dummy variable to force byte alignment */ 


/* this array contains left justified 1 or 2-letter pairs representing each unit */ 
dcl letters(O:n_units) globalref char(2); 


/* this array has rules for each unit */ 
dct 1 celeste units) based (r_ptr), 


o.final_split bit(1)> /* can’ *t be the ae upeet ' last syllable */ 
Hon _begin_s itable bit(1), /* can't begin a ed lab 
vowel bit i /* this is a vowel */ iP 
alternate_ vowel bit(1); /* this is an ~ vowel, (i.e., “‘y’’) #/ 


dcl i fixed bin; 
dcl j fixed bin; 


/teve SLEezE STRUCTURE */ 
dct r(17) char(1) globalref; 


0 
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/* on the first salt to generate passwords, initialize pointers and «/ 
/* generate the initial random number seed. */ 


if d_ptr = null() 
then 


first call: do; 
d.ptr = addr(digrams); 
rptr = addr(r); 

lLiptr = addr(letters); 


do i=98 to 123; /* replace lower with lower + 1 */ 
+ “an tinataniasinnatt ct = substr(collate,i+1,1); 
end; 
" } 


DONOUNES WN —"OOONOUSw 


/* get the initial random seed: Increment a counter in a tight loop. Set a */ | 
/* timer to interrupt (with an AST) every 10 milliseconds. When this AST 

/* occurs, read the last two bits of the counter and append them to the seed */ 

/* until we have 64 bits. «/ 


/* set delta_time to 10 milliseconds binary time value */ 
sts$value = sys$bintim(ten_msec, delta_time); 
if “sts$success 
then do; 
skip edit('fatal error: invalid time string’) (a); 
stop; 
end; 


next field = 1; 
do while(next_field < 64); 
counter = 0; | 
read_flag = ‘0'b; 
sts$value = sys$cantim (,); 


ATLL LARA TOR IS TS 


WANA 
ANS 


VEWN—O 


/* cancel previous timer request */ | 


aN 


6 sts$value = sysS$setimr (,delta_time, set_read_flag,); /* set timer: AST every 10 msecs. */ | 
77 if “sts$success 
78 then do; 
79 ; /* fatal errors: cannot continue */ 


put skip edit('fatal error: ‘) (a); 
if sts$value = ss$_accvio 
then put edit("can''t read delta_time') (a); 
else if sts$value = ss$_exquota 
then put edit("too many ASTs or timer entries’) (a); 
else if sts$value = ss$_insfmem 
. then put edit("not enough dynamic memory’) (a); 
stop; 


| 
| 


end; 
tight_Lloop: do while(*read_flag); /* This Loop will execute until the AST goes off. */ 
counter = counter + 1; /* The AST handler sets read_flag, which stops e/ 
end; /* ghe loop and transfers control to read_ctr. «/ 
read_ctr: seed bits = substr(unspec(counter), 1, 2); /* read the lower two bits of the counter */ 


substr(seed, next_field, 2) = seed_bits; /* insert them into the seed string */ 
nent. ttele = next_field + 2; 
end; 


/* AST handling procedure */ 


ROPINIPIWWWIWW B BWUE BEBE EEE FE FMAM IIAP PONUPINI WIWUINININDY 2 = 


set_read_flag: proc; 


1 
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dcl read_flag bit(1) aligned ext; /* set when counter value is to be read */ 
read_flag = '1'b; 


end set_read_flag; 
end first_call; 


/* generate ‘n_words' pronounceable words */ 
do word_count = 1 to n_words; 


word_is_pronounceable = '0'b; /* reset the status code for each legal word */ 
call get_random_bits(seed); /* get a random bit pattern */ 
s = substr(seed, 1, 31); /* get the Length of the word from */ 


unspec(n) = s; /* the random bit pattern in seed */ 
word_length = mod(n, max_length-min_length+1) + min_Llength; 
/* generate random letter strings and test them until a legal word is found */ 
do while (“*word_is_pronounceable); 
call random_chars_ (word, word_length); 
call test_word; 


end; 
aligning_blanks = hee *, max_length-word_length); /* align the words for printing */ 
put skip edit(word!ialigning_blanks, hyph_password(word_count)) (a, x(4), a); 
end; 


/* this internal procedure tests a word against the rules of pronounce- */ 
/* ability contained in the digram table and the random_word_ algorithm. */ 


/* the word is also hyphenated if it is pronounceable. «/ 
test_word: proc; 

dcl Fixed_word py oe em i a /* fixed length form of word */ 

dcl bad word cher (uord sSoge ); /* encrypted word for bad word check */ 
dcl hyphens (20) bit(1) aligned; /* position of hyphens in word */ 


dcl i fixed bin; 
dcl bad_word_found bit(1) aligned; 


fixed_word = word; 
if a! oma ante (fixed_word, hyphens, d_ptr, l_ptr, r_ptr. n_units) 
en do 


bad_vord = translate(fixed_word,translation); /* do not use word if naughty */ 


= ° 
bad_word_found = '0'b; 
do while (“bad_word_found & i <= number _bad_words ); 
if index (bad_word.bad word, str ing(1)) *= 0 
then bad_word_ found = “1"b; 
izsi+¢t; 
end; 
if “bad_word_ found 
then do; 
word_is_pronounceable = ‘'1'b; 
password(word_count) = fixed_word; 
/* add the hyphens to the word */ 
hyph _passuord\uord count) e **; 
do i = 1 to word_length; 
hyph_password(uord_count) = hyph_password(word_count) {! substr(word, i, 1); 


hyphens 
then hyph_password(word_count) = hyph_password(word_count) {i ‘='; 


} 
| 
' 
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end; 
end test_word; 

: 


end generate_passwords; 


end; 


end; 
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red ' ROUTINE random_chars_.pli 

ag | FUNCTIONAL DESCRIPTION: 

re i forma string of random letters, given the length of the string. The 

472 } ! Letters will be the 26 letters of the english alphabet, and each letter 

473 : ! will have an equal probability of occuring in any given position in the 

474 } ! str ng. These letters will be concatenated to form a string of the correct 

475 } ! Length. The input will be the vengee of the string, and the output will be 

476 ; ! the word in character form. The table of letters is held in an internal 

477 ; ! static array cf 26 single-character strings. A random pattern of 64 bits 

478 : ! will be obtained by a call to get_random_bits, and this seed will be taken 

rt ' } 1 byte at a time to generate a random number in the correct range. 

481 } i INPUT PARAMETERS: 

rt ‘ : length - Length of string to be generated. 

484 } i QUTPUT PARAMETERS: 

red ‘ chars - string of random letters to be generated. 

487 } i ROUTINE VALUE: 

488 : : NONE 

489 | ; 

490 : ' SIDE EFFECTS: 

491 ; : NONE 

492 ; : 

493 : «/ 

496 

$32 , random_chars_: proc (chars, length); 

497 1 dcl chars char(*) var; /* PARAMETER: string of random letters to be gonereted «/ 

498 1 dcl length fixed bin; /* PARAMETER: Length of string to be generated */ 

$3) : dcl char_count fixed bin; /* number of characters generated so far */ 

501 1 

206 1 dcl letters(0:25) char(1) static /* table of letters */ 

0 1 Mee a" ."O' at a ae Cats “ot ot 6 hs eek 

rt 1 we ae PtP) See ee eS 

505 1 dcl letter_index fixed bin; /* a random number index into the letter table */ 

208 ; dcl char char(1); /* a letter from the letter table */ 

08 1 

$08 1 dcl get_random_bits entry(bit(64) aligned); /* gets a random 64-bit pattern */ _ 

510 1 dcl seed bit(6%) aligned ext: /* random b4-bit pattern obtained from get_random_bits, */ 
713 «1 /* used to generate 8 random integers. «/ 
\ 1 dcl seed_byte(0:7) bit(8) /* same as seed, but allows access to individual bytes, */ 
1 1 Based(addr(seed)); /* which allows easier generation of random numbers «/ 
1 : dcl byte. count i taed pin /* index of next unused byte in random bit pattern */ 

5 c in 3 
\¢ 1 dcl s bit(8) al taned: /* temporary bit form of random number */ 

51 1 dcl n fixed bin(8); /* temporary integer form of random number */ 

18 : dcl f float bin(8); /* temporary floating point form of random number */ 
31 : : /* generate the string */ 
2 1 chars = °'; 


’ 
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st PASSWORD_GENERATE 
x2.T 


<2 
4 
5: /* 
{ 
1 
g Is 
/* 
5 /* 
9 
40 
41 
§ 
1 
1 
1 


end random_ 
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do char_count = 1 to Length; 


see is all Bytes gf the seed string have been used */ 
if byte. e "" ~® 


/* wt, “bytes have been my pe: get a new seed string */ 
call get. a ty art seed 
+ age 


We now have a random pattern of 6 and 35 Use one byte at a time to */ 


garerete @ random number between 0 sng use this as an index */ 
o get a letter from the table, letters «/ 
rt = gsed byte shyt es’ count); ~ make the byte fone an integer n, 0 <= n < 236 2/ 
= float(n,8)/float(2 * map n into a floating point number f, 9 <= f <1 *#/ 
letent” index = fyoeg erence tte26), 8);/* map f into an integer of fer asorreet range: S28 «/ 


char = Metteretionter index); /* get a letter from the tabl 
chars = chars ‘|! char; is edd letter to end of onesee 
byte_count = byte_ count + 1; /* 1 byte of seed string has been used */ 


end; 


chars_; 


| 


a 


1 
st PASSWORD _GENERATE 
x2.T 


* ROUTINE get_random_bits.pli 
FUNCTIONAL DESCRIPTION: 
INPUT PARAMETERS: 

NONE 
OUTPUT PARAMETERS: 
s- byte random seed. 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


/ 
' 
* 


/ 
get_random_bits: proc (s); 
dcl s bit(64) aligned; . PARAMETER: 8-byte random seed 


DISALERISSaVEAR UNV OO 


WIETo 
eh 
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Generate a random pattern of 64 bits using the MTHSRANDOM algorithm. 


1 
1 
Lf za Als 
7 1 dcl s_long(0:1) fixed bin(31) based(addr(s)); 
74 1 dcl s_byte(0:7) fixed bin(7) based(addr(s)); 
575 1 dcl t fixed bin(31); 
278 ; dcl t_byte(0:3) fixed bin(7) based(addr(t)); 
sr : dcl mth$random entry (fixed binary (31)); 
20 [<3 /* get a random bit pattern by using the random number seed, s, as 
581: 1 /* Two calls to the random number generator are necessary because 
ry : : /* return 32 bits at a time, and we want a 64 bit sequence. 
o5e 1 call mth$random (s_long(0)); 
585 1 call mth$random (s_long(1)); 
Hy] : call mth$random (tJ; 
at 1 s_byte(0) = t_byte(@): 
390 : s_byte(4) = t_byte(3); 
91 1 end get_random_bits; 
COMMAND LINE 


PL/ 
MAST 


. 
lso used as random bit pattern output from MTHSRANDOM 


*/ 
s/ 
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